home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / kc1qfnts / radiogrm.frm < prev    next >
Text File  |  1995-03-24  |  61KB  |  2,172 lines

  1. VERSION 2.00
  2. Begin Form radiogrm 
  3.    BackColor       =   &H0080FFFF&
  4.    ClientHeight    =   6900
  5.    ClientLeft      =   45
  6.    ClientTop       =   345
  7.    ClientWidth     =   9495
  8.    FontTransparent =   0   'False
  9.    Height          =   7305
  10.    KeyPreview      =   -1  'True
  11.    Left            =   -15
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   6900
  16.    ScaleWidth      =   9495
  17.    Top             =   0
  18.    Width           =   9615
  19.    Begin SSCommand Command3D4 
  20.       Caption         =   "Main Menu"
  21.       Font3D          =   0  'None
  22.       ForeColor       =   &H00000000&
  23.       Height          =   855
  24.       Left            =   7110
  25.       TabIndex        =   53
  26.       Top             =   1185
  27.       Width           =   1980
  28.    End
  29.    Begin SSCommand Command3D3 
  30.       Caption         =   "Listen To Voicegram"
  31.       Font3D          =   0  'None
  32.       ForeColor       =   &H00000000&
  33.       Height          =   825
  34.       Left            =   7110
  35.       TabIndex        =   52
  36.       Top             =   225
  37.       Width           =   2025
  38.    End
  39.    Begin TextBox Text38 
  40.       BorderStyle     =   0  'None
  41.       FontBold        =   -1  'True
  42.       FontItalic      =   0   'False
  43.       FontName        =   "MS Sans Serif"
  44.       FontSize        =   12
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   1410
  48.       Left            =   2340
  49.       MultiLine       =   -1  'True
  50.       TabIndex        =   51
  51.       Text            =   "Text38"
  52.       Top             =   3675
  53.       Width           =   5535
  54.    End
  55.    Begin PictureBox Picture2 
  56.       BackColor       =   &H0080FFFF&
  57.       BorderStyle     =   0  'None
  58.       Height          =   540
  59.       Left            =   450
  60.       Picture         =   RADIOGRM.FRX:0000
  61.       ScaleHeight     =   540
  62.       ScaleWidth      =   585
  63.       TabIndex        =   50
  64.       Top             =   2955
  65.       Width           =   585
  66.    End
  67.    Begin PictureBox Picture1 
  68.       AutoSize        =   -1  'True
  69.       BackColor       =   &H00FFFFFF&
  70.       BorderStyle     =   0  'None
  71.       Height          =   480
  72.       Left            =   8820
  73.       Picture         =   RADIOGRM.FRX:0302
  74.       ScaleHeight     =   480
  75.       ScaleWidth      =   480
  76.       TabIndex        =   49
  77.       Top             =   5850
  78.       Width           =   480
  79.    End
  80.    Begin Timer Timer2 
  81.       Interval        =   1000
  82.       Left            =   7800
  83.       Top             =   5895
  84.    End
  85.    Begin Timer Timer1 
  86.       Left            =   7125
  87.       Top             =   5880
  88.    End
  89.    Begin TextBox Text37 
  90.       FontBold        =   -1  'True
  91.       FontItalic      =   0   'False
  92.       FontName        =   "System"
  93.       FontSize        =   9.75
  94.       FontStrikethru  =   0   'False
  95.       FontUnderline   =   0   'False
  96.       ForeColor       =   &H0000FFFF&
  97.       Height          =   495
  98.       Left            =   4530
  99.       TabIndex        =   38
  100.       Text            =   "Text37"
  101.       Top             =   5235
  102.       Width           =   4560
  103.    End
  104.    Begin TextBox Text36 
  105.       ForeColor       =   &H0000FFFF&
  106.       Height          =   500
  107.       Left            =   1425
  108.       TabIndex        =   37
  109.       Text            =   "Text36"
  110.       Top             =   5220
  111.       Width           =   1200
  112.    End
  113.    Begin TextBox Text35 
  114.       ForeColor       =   &H0000FFFF&
  115.       Height          =   500
  116.       Left            =   105
  117.       TabIndex        =   36
  118.       Text            =   "Text35"
  119.       Top             =   5220
  120.       Width           =   1200
  121.    End
  122.    Begin TextBox Text34 
  123.       ForeColor       =   &H0000FFFF&
  124.       Height          =   500
  125.       Left            =   7860
  126.       TabIndex        =   35
  127.       Text            =   "Text34"
  128.       Top             =   4680
  129.       Width           =   1200
  130.    End
  131.    Begin TextBox Text33 
  132.       ForeColor       =   &H0000FFFF&
  133.       Height          =   500
  134.       Left            =   6600
  135.       TabIndex        =   34
  136.       Text            =   "Text33"
  137.       Top             =   4680
  138.       Width           =   1200
  139.    End
  140.    Begin TextBox Text32 
  141.       ForeColor       =   &H0000FFFF&
  142.       Height          =   500
  143.       Left            =   5340
  144.       TabIndex        =   33
  145.       Text            =   "Text32"
  146.       Top             =   4680
  147.       Width           =   1200
  148.    End
  149.    Begin TextBox Text31 
  150.       ForeColor       =   &H0000FFFF&
  151.       Height          =   500
  152.       Left            =   4035
  153.       TabIndex        =   32
  154.       Text            =   "Text31"
  155.       Top             =   4680
  156.       Width           =   1200
  157.    End
  158.    Begin TextBox Text30 
  159.       ForeColor       =   &H0000FFFF&
  160.       Height          =   500
  161.       Left            =   2730
  162.       TabIndex        =   31
  163.       Text            =   "Text30"
  164.       Top             =   4680
  165.       Width           =   1200
  166.    End
  167.    Begin TextBox Text29 
  168.       ForeColor       =   &H0000FFFF&
  169.       Height          =   500
  170.       Left            =   1425
  171.       TabIndex        =   30
  172.       Text            =   "Text29"
  173.       Top             =   4680
  174.       Width           =   1200
  175.    End
  176.    Begin TextBox Text28 
  177.       ForeColor       =   &H0000FFFF&
  178.       Height          =   500
  179.       Left            =   105
  180.       TabIndex        =   29
  181.       Text            =   "Text28"
  182.       Top             =   4680
  183.       Width           =   1200
  184.    End
  185.    Begin TextBox Text27 
  186.       ForeColor       =   &H0000FFFF&
  187.       Height          =   500
  188.       Left            =   7875
  189.       TabIndex        =   28
  190.       Text            =   "Text27"
  191.       Top             =   4145
  192.       Width           =   1200
  193.    End
  194.    Begin TextBox Text26 
  195.       ForeColor       =   &H0000FFFF&
  196.       Height          =   500
  197.       Left            =   6600
  198.       TabIndex        =   27
  199.       Text            =   "Text26"
  200.       Top             =   4145
  201.       Width           =   1200
  202.    End
  203.    Begin TextBox Text25 
  204.       ForeColor       =   &H0000FFFF&
  205.       Height          =   500
  206.       Left            =   5340
  207.       TabIndex        =   26
  208.       Text            =   "Text25"
  209.       Top             =   4145
  210.       Width           =   1200
  211.    End
  212.    Begin TextBox Text24 
  213.       ForeColor       =   &H0000FFFF&
  214.       Height          =   500
  215.       Left            =   4035
  216.       TabIndex        =   25
  217.       Text            =   "Text24"
  218.       Top             =   4145
  219.       Width           =   1200
  220.    End
  221.    Begin TextBox Text23 
  222.       ForeColor       =   &H0000FFFF&
  223.       Height          =   500
  224.       Left            =   2745
  225.       TabIndex        =   24
  226.       Text            =   "Text23"
  227.       Top             =   4140
  228.       Width           =   1200
  229.    End
  230.    Begin TextBox Text22 
  231.       ForeColor       =   &H0000FFFF&
  232.       Height          =   500
  233.       Left            =   1425
  234.       TabIndex        =   23
  235.       Text            =   "Text22"
  236.       Top             =   4145
  237.       Width           =   1200
  238.    End
  239.    Begin TextBox Text21 
  240.       ForeColor       =   &H0000FFFF&
  241.       Height          =   500
  242.       Left            =   100
  243.       TabIndex        =   22
  244.       Text            =   "Text21"
  245.       Top             =   4145
  246.       Width           =   1200
  247.    End
  248.    Begin TextBox Text20 
  249.       ForeColor       =   &H0000FFFF&
  250.       Height          =   500
  251.       Left            =   7875
  252.       TabIndex        =   21
  253.       Text            =   "Text20"
  254.       Top             =   3600
  255.       Width           =   1200
  256.    End
  257.    Begin TextBox Text19 
  258.       ForeColor       =   &H0000FFFF&
  259.       Height          =   500
  260.       Left            =   6600
  261.       TabIndex        =   20
  262.       Text            =   "Text19"
  263.       Top             =   3600
  264.       Width           =   1200
  265.    End
  266.    Begin TextBox Text18 
  267.       ForeColor       =   &H0000FFFF&
  268.       Height          =   500
  269.       Left            =   5340
  270.       TabIndex        =   19
  271.       Text            =   "Text18"
  272.       Top             =   3600
  273.       Width           =   1200
  274.    End
  275.    Begin TextBox Text17 
  276.       ForeColor       =   &H0000FFFF&
  277.       Height          =   500
  278.       Left            =   4035
  279.       TabIndex        =   18
  280.       Text            =   "Text17"
  281.       Top             =   3600
  282.       Width           =   1200
  283.    End
  284.    Begin TextBox Text16 
  285.       ForeColor       =   &H0000FFFF&
  286.       Height          =   500
  287.       Left            =   2730
  288.       TabIndex        =   17
  289.       Text            =   "Text16"
  290.       Top             =   3600
  291.       Width           =   1200
  292.    End
  293.    Begin TextBox Text15 
  294.       ForeColor       =   &H0000FFFF&
  295.       Height          =   500
  296.       Left            =   1425
  297.       TabIndex        =   16
  298.       Text            =   "Text15"
  299.       Top             =   3600
  300.       Width           =   1200
  301.    End
  302.    Begin TextBox Text14 
  303.       ForeColor       =   &H0000FFFF&
  304.       Height          =   500
  305.       Left            =   100
  306.       TabIndex        =   15
  307.       Text            =   "Text14"
  308.       Top             =   3600
  309.       Width           =   1200
  310.    End
  311.    Begin TextBox Text13 
  312.       ForeColor       =   &H0000FFFF&
  313.       Height          =   500
  314.       Left            =   7875
  315.       TabIndex        =   14
  316.       Text            =   "Text13"
  317.       Top             =   3045
  318.       Width           =   1200
  319.    End
  320.    Begin TextBox Text12 
  321.       ForeColor       =   &H0000FFFF&
  322.       Height          =   500
  323.       Left            =   6600
  324.       TabIndex        =   13
  325.       Text            =   "Text12"
  326.       Top             =   3045
  327.       Width           =   1200
  328.    End
  329.    Begin TextBox Text11 
  330.       ForeColor       =   &H0000FFFF&
  331.       Height          =   500
  332.       Left            =   5340
  333.       TabIndex        =   12
  334.       Text            =   "Text11"
  335.       Top             =   3030
  336.       Width           =   1200
  337.    End
  338.    Begin TextBox Text10 
  339.       ForeColor       =   &H0000FFFF&
  340.       Height          =   500
  341.       Left            =   4035
  342.       TabIndex        =   11
  343.       Text            =   "Text10"
  344.       Top             =   3030
  345.       Width           =   1200
  346.    End
  347.    Begin TextBox Text9 
  348.       ForeColor       =   &H0000FFFF&
  349.       Height          =   500
  350.       Left            =   2730
  351.       TabIndex        =   10
  352.       Text            =   "Text9"
  353.       Top             =   3015
  354.       Width           =   1200
  355.    End
  356.    Begin TextBox Text8 
  357.       ForeColor       =   &H0000FFFF&
  358.       Height          =   500
  359.       Left            =   1440
  360.       TabIndex        =   9
  361.       Text            =   "Text8"
  362.       Top             =   3030
  363.       Width           =   1200
  364.    End
  365.    Begin TextBox Text7 
  366.       FontBold        =   -1  'True
  367.       FontItalic      =   0   'False
  368.       FontName        =   "System"
  369.       FontSize        =   9.75
  370.       FontStrikethru  =   0   'False
  371.       FontUnderline   =   0   'False
  372.       ForeColor       =   &H0000FFFF&
  373.       Height          =   495
  374.       Left            =   6510
  375.       TabIndex        =   8
  376.       Text            =   "Text7"
  377.       Top             =   2130
  378.       Width           =   2580
  379.    End
  380.    Begin TextBox Text6 
  381.       FontBold        =   -1  'True
  382.       FontItalic      =   0   'False
  383.       FontName        =   "System"
  384.       FontSize        =   9.75
  385.       FontStrikethru  =   0   'False
  386.       FontUnderline   =   0   'False
  387.       ForeColor       =   &H0000FFFF&
  388.       Height          =   495
  389.       Left            =   2760
  390.       TabIndex        =   7
  391.       Text            =   "Text6"
  392.       Top             =   2145
  393.       Width           =   3630
  394.    End
  395.    Begin TextBox Text5 
  396.       FontBold        =   -1  'True
  397.       FontItalic      =   0   'False
  398.       FontName        =   "System"
  399.       FontSize        =   9.75
  400.       FontStrikethru  =   0   'False
  401.       FontUnderline   =   0   'False
  402.       ForeColor       =   &H0000FFFF&
  403.       Height          =   495
  404.       Left            =   1455
  405.       TabIndex        =   6
  406.       Text            =   "Text5"
  407.       Top             =   2145
  408.       Width           =   1200
  409.    End
  410.    Begin TextBox Text4 
  411.       FontBold        =   -1  'True
  412.       FontItalic      =   0   'False
  413.       FontName        =   "System"
  414.       FontSize        =   9.75
  415.       FontStrikethru  =   0   'False
  416.       FontUnderline   =   0   'False
  417.       ForeColor       =   &H0000FFFF&
  418.       Height          =   495
  419.       Left            =   6225
  420.       TabIndex        =   5
  421.       Text            =   "Text4"
  422.       Top             =   1470
  423.       Width           =   495
  424.    End
  425.    Begin TextBox Text3 
  426.       FontBold        =   -1  'True
  427.       FontItalic      =   0   'False
  428.       FontName        =   "System"
  429.       FontSize        =   9.75
  430.       FontStrikethru  =   0   'False
  431.       FontUnderline   =   0   'False
  432.       ForeColor       =   &H0000FFFF&
  433.       Height          =   495
  434.       Left            =   1440
  435.       TabIndex        =   4
  436.       Text            =   "Text3"
  437.       Top             =   1485
  438.       Width           =   3915
  439.    End
  440.    Begin TextBox Text2 
  441.       FontBold        =   -1  'True
  442.       FontItalic      =   0   'False
  443.       FontName        =   "System"
  444.       FontSize        =   9.75
  445.       FontStrikethru  =   0   'False
  446.       FontUnderline   =   0   'False
  447.       ForeColor       =   &H0000FFFF&
  448.       Height          =   495
  449.       Left            =   1455
  450.       TabIndex        =   3
  451.       Text            =   "Text2"
  452.       Top             =   870
  453.       Width           =   5295
  454.    End
  455.    Begin TextBox Text1 
  456.       FontBold        =   -1  'True
  457.       FontItalic      =   0   'False
  458.       FontName        =   "System"
  459.       FontSize        =   9.75
  460.       FontStrikethru  =   0   'False
  461.       FontUnderline   =   0   'False
  462.       ForeColor       =   &H0000FFFF&
  463.       Height          =   480
  464.       Left            =   1455
  465.       TabIndex        =   2
  466.       Text            =   "Text1"
  467.       Top             =   240
  468.       Width           =   5310
  469.    End
  470.    Begin SSCommand Command3D2 
  471.       Caption         =   "Transmit Radiogram"
  472.       Font3D          =   0  'None
  473.       ForeColor       =   &H00000000&
  474.       Height          =   840
  475.       Left            =   7125
  476.       Picture         =   RADIOGRM.FRX:0604
  477.       TabIndex        =   1
  478.       Top             =   225
  479.       Width           =   2010
  480.    End
  481.    Begin SSCommand Command3D1 
  482.       Caption         =   "Abort Radiogram"
  483.       Font3D          =   0  'None
  484.       ForeColor       =   &H00000000&
  485.       Height          =   825
  486.       Left            =   7125
  487.       Picture         =   RADIOGRM.FRX:0906
  488.       TabIndex        =   0
  489.       Top             =   1185
  490.       Width           =   1980
  491.    End
  492.    Begin Line Line2 
  493.       BorderColor     =   &H00000000&
  494.       BorderWidth     =   5
  495.       X1              =   30
  496.       X2              =   9510
  497.       Y1              =   6375
  498.       Y2              =   6375
  499.    End
  500.    Begin Line Line1 
  501.       BorderColor     =   &H00000000&
  502.       BorderWidth     =   5
  503.       X1              =   0
  504.       X2              =   9495
  505.       Y1              =   5805
  506.       Y2              =   5790
  507.    End
  508.    Begin Label Label10 
  509.       BackColor       =   &H0080FFFF&
  510.       Caption         =   "Signature (Names Only)"
  511.       ForeColor       =   &H00000000&
  512.       Height          =   495
  513.       Left            =   3225
  514.       TabIndex        =   48
  515.       Top             =   5235
  516.       Width           =   1215
  517.    End
  518.    Begin Label Label9 
  519.       BackColor       =   &H0080FFFF&
  520.       Caption         =   "Telephone #"
  521.       ForeColor       =   &H00000000&
  522.       Height          =   285
  523.       Left            =   7365
  524.       TabIndex        =   47
  525.       Top             =   2715
  526.       Width           =   1215
  527.    End
  528.    Begin Label Label8 
  529.       BackColor       =   &H0080FFFF&
  530.       Caption         =   "Country"
  531.       ForeColor       =   &H00000000&
  532.       Height          =   225
  533.       Left            =   4065
  534.       TabIndex        =   46
  535.       Top             =   2700
  536.       Width           =   1215
  537.    End
  538.    Begin Label Label7 
  539.       BackColor       =   &H0080FFFF&
  540.       Caption         =   "State"
  541.       ForeColor       =   &H00000000&
  542.       Height          =   330
  543.       Left            =   5445
  544.       TabIndex        =   45
  545.       Top             =   1605
  546.       Width           =   660
  547.    End
  548.    Begin Label Label6 
  549.       BackColor       =   &H0080FFFF&
  550.       Caption         =   "Zip Code"
  551.       ForeColor       =   &H00000000&
  552.       Height          =   270
  553.       Left            =   330
  554.       TabIndex        =   44
  555.       Top             =   2280
  556.       Width           =   1095
  557.    End
  558.    Begin Label Label5 
  559.       BackColor       =   &H0080FFFF&
  560.       Caption         =   "City"
  561.       ForeColor       =   &H00000000&
  562.       Height          =   255
  563.       Left            =   525
  564.       TabIndex        =   43
  565.       Top             =   1545
  566.       Width           =   780
  567.    End
  568.    Begin Label Label4 
  569.       BackColor       =   &H0080FFFF&
  570.       Caption         =   "Street Address"
  571.       ForeColor       =   &H00000000&
  572.       Height          =   270
  573.       Left            =   75
  574.       TabIndex        =   42
  575.       Top             =   930
  576.       Width           =   1395
  577.    End
  578.    Begin Label Label3 
  579.       BackColor       =   &H0080FFFF&
  580.       Caption         =   "Name"
  581.       ForeColor       =   &H00000000&
  582.       Height          =   360
  583.       Left            =   435
  584.       TabIndex        =   41
  585.       Top             =   345
  586.       Width           =   1215
  587.    End
  588.    Begin Label Label2 
  589.       BackStyle       =   0  'Transparent
  590.       Caption         =   "Helpful Hints"
  591.       FontBold        =   -1  'True
  592.       FontItalic      =   0   'False
  593.       FontName        =   "MS Sans Serif"
  594.       FontSize        =   12
  595.       FontStrikethru  =   0   'False
  596.       FontUnderline   =   0   'False
  597.       ForeColor       =   &H00000000&
  598.       Height          =   495
  599.       Left            =   3855
  600.       TabIndex        =   40
  601.       Top             =   6420
  602.       Width           =   2580
  603.    End
  604.    Begin Label Label1 
  605.       BackColor       =   &H00FFFFFF&
  606.       Caption         =   "Label1"
  607.       FontBold        =   -1  'True
  608.       FontItalic      =   0   'False
  609.       FontName        =   "MS Sans Serif"
  610.       FontSize        =   13.5
  611.       FontStrikethru  =   0   'False
  612.       FontUnderline   =   0   'False
  613.       ForeColor       =   &H00000000&
  614.       Height          =   495
  615.       Left            =   30
  616.       TabIndex        =   39
  617.       Top             =   5850
  618.       Width           =   9495
  619.    End
  620. End
  621.  
  622. Sub cleartext ()
  623. text1.Text = ""
  624. text2.Text = ""
  625. text3.Text = ""
  626. text4.Text = ""
  627. text5.Text = ""
  628. text6.Text = ""
  629. text7.Text = ""
  630. text8.Text = ""
  631. text9.Text = ""
  632. text10.Text = ""
  633. text11.Text = ""
  634. text12.Text = ""
  635. text13.Text = ""
  636. text14.Text = ""
  637. text15.Text = ""
  638. text16.Text = ""
  639. text17.Text = ""
  640. text18.Text = ""
  641. text19.Text = ""
  642. text20.Text = ""
  643. text21.Text = ""
  644. text22.Text = ""
  645. text23.Text = ""
  646. text24.Text = ""
  647. text25.Text = ""
  648. text26.Text = ""
  649. text27.Text = ""
  650. text28.Text = ""
  651. text29.Text = ""
  652. text30.Text = ""
  653. text31.Text = ""
  654. text32.Text = ""
  655. text33.Text = ""
  656. text34.Text = ""
  657. text35.Text = ""
  658. text36.Text = ""
  659. text37.Text = ""
  660. End Sub
  661.  
  662. Sub Command3D1_Click ()
  663. x = MsgBox("Are you SURE you want to abort the radiogram without saving it?", 52, "Caution...")
  664. If x = 6 Then ky1tnts.Show
  665.  If x = 6 Then radiogrm.Hide
  666.  
  667. End Sub
  668.  
  669. Sub Command3D2_Click ()
  670.     Select Case voice
  671.         Case 1 'This is a Voicegram, not a radiogram
  672.             If text1.Text = "" Then Beep: MsgBox ("You need to fill in the name and address information before we can transmit your voicegram...")
  673.                Case 2 'This is a radiogram, not a voicegram
  674.  
  675.           label1.Caption = "          Your radiogram has been sent.  Thank you!"
  676.  
  677. 'Now determine "check" or number of words in text
  678. If text9.Text = "" Then check = 1
  679. If text10.Text = "" And text9 <> "" Then check = 2
  680. If text11.Text = "" And text10.Text <> "" Then check = 3
  681. If text12.Text = "" And text11.Text <> "" Then check = 4
  682. If text13.Text = "" And text12Text <> "" Then check = 5
  683. If text14.Text = "" And text13.Text <> "" Then check = 6
  684. If text15.Text = "" And text14.Text <> "" Then check = 7
  685. If text16.Text = "" And text15.Text <> "" Then check = 8
  686. If text17.Text = "" And text16.Text <> "" Then check = 9
  687. If text18.Text = "" And text17.Text <> "" Then check = 10
  688. If text19.Text = "" And text18.Text <> "" Then check = 11
  689. If text20.Text = "" And text19.Text <> "" Then check = 12
  690. If text21.Text = "" And text20.Text <> "" Then check = 13
  691. If text22.Text = "" And text21.Text <> "" Then check = 14
  692. If text23.Text = "" And text22.Text <> "" Then check = 15
  693. If text24.Text = "" And text23.Text <> "" Then check = 16
  694. If text25.Text = "" And text24.Text <> "" Then check = 17
  695. If text26.Text = "" And text25.Text <> "" Then check = 18
  696. If text27.Text = "" And text26.Text <> "" Then check = 19
  697. If text28.Text = "" And text27.Text <> "" Then check = 20
  698. If text29.Text = "" And text28.Text <> "" Then check = 21
  699. If text30.Text = "" And text29.Text <> "" Then check = 22
  700. If text31.Text = "" And text30.Text <> "" Then check = 23
  701. If text32.Text = "" And text31.Text <> "" Then check = 24
  702. If text33.Text = "" And text32.Text <> "" Then check = 25
  703. If text34.Text = "" And text33.Text <> "" Then check = 26
  704. If text35.Text = "" And text34.Text <> "" Then check = 27
  705. If text36.Text = "" And text35.Text <> "" Then check = 28
  706. If text37.Text <> "" And text36.Text <> "" Then check = 29
  707. text36.Text = Str$(check)
  708.           
  709. messagenumber = initialmessagenumber + 1
  710. initialmessagenumber = messagenumber  'Increment message number sequence
  711. number$ = Str$(messagenumber)'Make a text representation of the longinteger "messagenumber"
  712.  
  713. Open directory$ & "\" & messagenumber For Output As #1
  714.  
  715. cr$ = Chr$(10) & Chr$(13)
  716.  
  717. ' Created "sig$" and "part2$" mostly because "radiogram$" is too long!
  718. sig$ = " " & text36.Text & cr$ & "BT" & cr$ & UCase$(text37.Text) & cr$
  719. checkstring$ = Str$(check)
  720.  
  721. 'Now put it all together as an ASCII file and write to disk
  722.  
  723. preamble$ = "NR" & " " & number$ & " " & precedence$ & " " & UCase$(callsign$) & " " & checkstring$ & " " & UCase$(cityoforigination$) & " " & UCase$(todaysdate$) & cr$
  724. part2$ = UCase$(text27.Text) & cr$ & UCase$(text28.Text) & " " & UCase$(text29.Text) & " " & UCase$(text30.Text) & " " & UCase$(text31.Text) & " " & UCase$(text32.Text) & "    " & UCase$(text33.Text) & " " & UCase$(text34.Text) & " " & UCase$(text35.Text) & sig$
  725. radiogram$ = preamble$ & UCase$(text1.Text) & cr$ & UCase$(text2.Text) & cr$ & UCase$(text3.Text) & "  " & UCase$(text4.Text) & " " & UCase$(text5.Text) & " " & UCase$(text6.Text) & " " & cr$ & UCase$(text7.Text) & cr$ & "BT" & cr$ & UCase$(text8.Text) & " " & UCase$(text9.Text) & " " & UCase$(text10.Text) & " " & UCase$(text11.Text) & " " & UCase$(text12.Text) & "     " & UCase$(text13.Text) & " " & UCase$(text14.Text) & " " & UCase$(text15.Text) & " " & UCase$(text16.Text) & " " & UCase$(text17.Text) & cr$ & UCase$(text18.Text) & " " & UCase$(text19.Text) & " " & UCase$(text20.Text) & " " & UCase$(text21.Text) & " " & UCase$(text22.Text) & "     " & UCase$(text23.Text) & " " & UCase$(text24.Text) & " " & UCase$(text25.Text) & " " & UCase$(text26.Text) & " " & part2$
  726.  
  727.  
  728. Print #1, radiogram$
  729. Close 1
  730.  
  731. makeblue
  732. MsgBox ("Beta Testers -- please note that the message(s) you've 'sent' should now exist in the subdirectory that you chose with the general setup option.")
  733.  
  734.  
  735. timer1.Enabled = 1 'Begin timer to go back to opening/main form
  736. timer1.Interval = 6000
  737.  
  738.      End Select
  739.  
  740. End Sub
  741.  
  742. Sub Command3D3_Click ()
  743.  
  744.   playback$ = (directory$ & "\vplay.exe " & directory$ & "\" & "voc" & messagenumber)
  745.   z = Shell(playback$)
  746. k = MsgBox("After listening to your voicegram, do  you wish to KILL it?  Choosing 'yes' will delete it; choosing 'no' will save it.", 4, "Delete Voicegram?")
  747.  If k = 6 Then
  748.       filename$ = directory$ & "\" & messagenumber&
  749.       Kill filename$
  750.       filename$ = (directory$ & "\" & "voc" & LTrim$(Str$(messagenumber&)) & ".voc")
  751.        Kill filename$: radiogrm.Hide : ky1tnts.Show
  752.    End If
  753.  
  754. If k = 7 Then
  755.     radiogrm.Hide : ky1tnts.Show
  756.     End If
  757.  
  758.  
  759.     
  760. End Sub
  761.  
  762. Sub Command3D4_Click ()
  763. radiogrm.Hide
  764. ky1tnts.Show
  765.  
  766. End Sub
  767.  
  768. Sub Form_Activate ()
  769. text1.SetFocus
  770.  cleartext
  771.  makeblue
  772.   text38.Visible = False
  773.     label1.Visible = True
  774.     label2.Visible = True
  775.      label10.Visible = True
  776.      text37.Visible = True
  777.      command3d1.Visible = True: command3d2.Visible = True
  778. timer1.Enabled = 0
  779. timer2.Enabled = 1
  780. timer2.Interval = 1000
  781.  
  782. Select Case voice 'Check to see if this is a voicegram or a telegram
  783. Case 2 'telegram
  784.     command3d3.Visible = False: command3d4.Visible = False: text8.Visible = True: text9.Visible = True: text10.Visible = True: text11.Visible = True: text12.Visible = True: text13.Visible = True: text14.Visible = True: text15.Visible = True: text16.Visible = True: text17.Visible = True: text18.Visible = True: text19.Visible = True: text20.Visible = True: text21.Visible = True: text22.Visible = True: text23.Visible = True: text24.Visible = True: text25.Visible = True: text26.Visible = True: text27.Visible = True: text28.Visible = True: text29.Visible = True: text30.Visible = True: text31.Visible = True: text32.Visible = True: text33.Visible = True: text34.Visible = True: text35.Visible = True: text36.Visible = True
  785.     Case 1 'voicegram
  786.     command3d2.Visible = False
  787.     command3d1.Visible = False
  788.     command3d4.Visible = True
  789.     command3d3.Visible = False
  790.  
  791.     text8.Visible = False: text9.Visible = False: text10.Visible = False: text11.Visible = False: text12.Visible = False: text13.Visible = False: text14.Visible = False: text15.Visible = False: text16.Visible = False: text17.Visible = False: text18.Visible = False: text19.Visible = False: text20.Visible = False: text21.Visible = False: text22.Visible = False: text23.Visible = False: text24.Visible = False: text25.Visible = False: text26.Visible = False: text27.Visible = False: text28.Visible = False: text29.Visible = valse: text30.Visible = False: text31.Visible = False: text32.Visible = False: text33.Visible = False: text34.Visible = False: text35.Visible = False: text36.Visible = False
  792.   label1.Caption = "Begin with the complete name/address of the person you're sending this voicegram to."
  793.  
  794.   
  795.   End Select
  796. End Sub
  797.  
  798.  Sub makeblue ()
  799.     Y& = RGB(0, 0, 255)
  800. text1.BackColor = Y&
  801. text2.BackColor = Y&
  802. text3.BackColor = Y&
  803. text4.BackColor = Y&
  804. text5.BackColor = Y&
  805. text6.BackColor = Y&
  806. text7.BackColor = Y&
  807. text8.BackColor = Y&
  808. text9.BackColor = Y&
  809. text10.BackColor = Y&
  810. text11.BackColor = Y&
  811. text12.BackColor = Y&
  812. text13.BackColor = Y&
  813. text14.BackColor = Y&
  814. text15.BackColor = Y&
  815. text16.BackColor = Y&
  816. text17.BackColor = Y&
  817. text18.BackColor = Y&
  818. text19.BackColor = Y&
  819. text20.BackColor = Y&
  820. text21.BackColor = Y&
  821. text22.BackColor = Y&
  822. text23.BackColor = Y&
  823. text24.BackColor = Y&
  824. text25.BackColor = Y&
  825. text26.BackColor = Y&
  826. text27.BackColor = Y&
  827. text28.BackColor = Y&
  828. text29.BackColor = Y&
  829. text30.BackColor = Y&
  830. text31BackColor = Y&
  831. text32.BackColor = Y&
  832. text33.BackColor = Y&
  833. text34.BackColor = Y&
  834. text35.BackColor = Y&
  835. text36.BackColor = Y&
  836. text37.BackColor = Y&
  837.       
  838. End Sub
  839.  
  840. Sub nopunct ()  'for situations where no punctuation is allowed
  841.  
  842.     Select Case keyascii
  843.     Case 0 To 47
  844.         keyascii = 0
  845.     Case 58 To 64
  846.         keyascii = 0
  847.     Case 91 To 96
  848.         keyascii = 0
  849.     Case Is > 122
  850.         keyascii = 0
  851.     End Select
  852.  
  853. End Sub
  854.  
  855. Sub nopunct1 ()
  856. 'For keydown stuff to ensure no punctuation, but allow arrows
  857. Select Case keycode
  858.     Case 8 To 13, 17 To 27, 33 To 36, 38, 40 To 57, 96 To 99, 101, Is > 103
  859.         keycode = 16 'do nothing, basically...
  860.         Case Shift = 6 And keycode = 110
  861.             keycode = 16 'If user tries CTL-ALT-DEL, do nothing...
  862.  
  863.                End Select
  864.  
  865.         End Sub
  866.  
  867. Sub Text1_GotFocus ()
  868.     x& = RGB(255, 0, 0)
  869.  text1.BackColor = x&
  870.  
  871.  label1.Caption = "Begin by typing name of addressee in red highlighted area."
  872.  
  873. End Sub
  874.  
  875. Sub Text1_KeyDown (keycode As Integer, Shift As Integer)
  876. 'For keydown stuff to ensure no punctuation, but allow arrows
  877. Select Case keycode
  878.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  879.         Beep
  880.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  881.   text1.Text = ""
  882.  
  883.              End Select
  884. If keycode = 13 Then
  885.     keycode = 9
  886.     label1.Caption = "Good!  Now enter address."
  887.        text2.SetFocus
  888.  
  889.        End If
  890.  
  891.  
  892. End Sub
  893.  
  894. Sub Text1_KeyPress (keyascii As Integer)
  895.   If keyascii = 13 Then
  896.   keyascii = 0
  897.   End If
  898.  
  899.  
  900.  
  901. End Sub
  902.  
  903. Sub Text10_GotFocus ()
  904.     x& = RGB(255, 0, 0)
  905.  text10.BackColor = x&
  906.     Y& = RGB(0, 0, 255)
  907.     text9.BackColor = Y&
  908.  
  909. End Sub
  910.  
  911. Sub Text10_KeyDown (keycode As Integer, Shift As Integer)
  912.    Select Case keycode
  913.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  914.         Beep
  915.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  916.  
  917. text10.Text = ""
  918. Case 32
  919. text11.SetFocus
  920.  
  921.              End Select
  922. If keycode = 13 Then
  923.     keycode = 9
  924.     
  925.        text11.SetFocus
  926.            End If
  927. End Sub
  928.  
  929. Sub Text10_KeyPress (keyascii As Integer)
  930.   If keyascii = 13 Then
  931.   keyascii = 0
  932.   End If
  933.  
  934. End Sub
  935.  
  936. Sub Text11_GotFocus ()
  937.     x& = RGB(255, 0, 0)
  938.  text11.BackColor = x&
  939.     Y& = RGB(0, 0, 255)
  940.     text10.BackColor = Y&
  941.  
  942. End Sub
  943.  
  944. Sub Text11_KeyDown (keycode As Integer, Shift As Integer)
  945.    Select Case keycode
  946.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  947.         Beep
  948.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  949.  
  950. text11.Text = ""
  951. Case 32
  952. text12.SetFocus
  953.              End Select
  954. If keycode = 13 Then
  955.     keycode = 9
  956.   text12.SetFocus
  957.   End If
  958.  
  959. End Sub
  960.  
  961. Sub Text11_KeyPress (keyascii As Integer)
  962.   If keyascii = 13 Then
  963.   keyascii = 0
  964.   End If
  965.  
  966. End Sub
  967.  
  968. Sub Text12_GotFocus ()
  969.     x& = RGB(255, 0, 0)
  970.  text12.BackColor = x&
  971.     Y& = RGB(0, 0, 255)
  972.     text11.BackColor = Y&
  973. End Sub
  974.  
  975. Sub Text12_KeyDown (keycode As Integer, Shift As Integer)
  976.    Select Case keycode
  977.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  978.         Beep
  979.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  980.     text12.Text = ""
  981. Case 32
  982.              text13.SetFocus
  983.              End Select
  984. If keycode = 13 Then
  985.     keycode = 9
  986. text13.SetFocus
  987.   End If
  988.  
  989. End Sub
  990.  
  991. Sub Text12_KeyPress (keyascii As Integer)
  992.   If keyascii = 13 Then
  993.   keyascii = 0
  994.   End If
  995.  
  996. End Sub
  997.  
  998. Sub Text13_GotFocus ()
  999.     x& = RGB(255, 0, 0)
  1000.  text13.BackColor = x&
  1001.     Y& = RGB(0, 0, 255)
  1002.     text12.BackColor = Y&
  1003.  
  1004. End Sub
  1005.  
  1006. Sub Text13_KeyDown (keycode As Integer, Shift As Integer)
  1007.    Select Case keycode
  1008.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1009.         Beep
  1010.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1011. text13.Text = ""
  1012. Case 32
  1013. text14.SetFocus
  1014.              End Select
  1015. If keycode = 13 Then
  1016.     keycode = 9
  1017.     text14.SetFocus
  1018.   End If
  1019.  
  1020. End Sub
  1021.  
  1022. Sub Text13_KeyPress (keyascii As Integer)
  1023.   If keyascii = 13 Then
  1024.   keyascii = 0
  1025.   End If
  1026.  
  1027. End Sub
  1028.  
  1029. Sub Text14_GotFocus ()
  1030.     x& = RGB(255, 0, 0)
  1031.  text14.BackColor = x&
  1032.     Y& = RGB(0, 0, 255)
  1033.     text13.BackColor = Y&
  1034.  
  1035. End Sub
  1036.  
  1037. Sub Text14_KeyDown (keycode As Integer, Shift As Integer)
  1038.    Select Case keycode
  1039.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1040.         Beep
  1041.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1042. text14.Text = ""
  1043. Case 32
  1044.              text15.SetFocus
  1045.              End Select
  1046. If keycode = 13 Then
  1047.     keycode = 9
  1048. text15.SetFocus
  1049.   End If
  1050.  
  1051. End Sub
  1052.  
  1053. Sub Text14_KeyPress (keyascii As Integer)
  1054.   If keyascii = 13 Then
  1055.   keyascii = 0
  1056.   End If
  1057.  
  1058. End Sub
  1059.  
  1060. Sub Text15_GotFocus ()
  1061.  
  1062.  
  1063.     x& = RGB(255, 0, 0)
  1064.  text15.BackColor = x&
  1065.     Y& = RGB(0, 0, 255)
  1066.     text14.BackColor = Y&
  1067. End Sub
  1068.  
  1069. Sub Text15_KeyDown (keycode As Integer, Shift As Integer)
  1070.    Select Case keycode
  1071.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1072.         Beep
  1073.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1074.   text15.Text = ""
  1075. Case 32
  1076.              text16.SetFocus
  1077.              End Select
  1078. If keycode = 13 Then
  1079.     keycode = 9
  1080. text16.SetFocus
  1081.   End If
  1082.  
  1083. End Sub
  1084.  
  1085. Sub Text15_KeyPress (keyascii As Integer)
  1086.   If keyascii = 13 Then
  1087.   keyascii = 0
  1088.   End If
  1089.  
  1090. End Sub
  1091.  
  1092. Sub Text16_GotFocus ()
  1093.     x& = RGB(255, 0, 0)
  1094.  text16.BackColor = x&
  1095.     Y& = RGB(0, 0, 255)
  1096.     text15.BackColor = Y&
  1097.  
  1098. End Sub
  1099.  
  1100. Sub Text16_KeyDown (keycode As Integer, Shift As Integer)
  1101.    Select Case keycode
  1102.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1103.         Beep
  1104.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1105. text16.Text = ""
  1106. Case 32
  1107. text17.SetFocus
  1108.              End Select
  1109. If keycode = 13 Then
  1110.     keycode = 9
  1111. text17.SetFocus
  1112.   End If
  1113.  
  1114. End Sub
  1115.  
  1116. Sub Text16_KeyPress (keyascii As Integer)
  1117.   If keyascii = 13 Then
  1118.   keyascii = 0
  1119.   End If
  1120.  
  1121. End Sub
  1122.  
  1123. Sub Text17_GotFocus ()
  1124.     x& = RGB(255, 0, 0)
  1125.  text17.BackColor = x&
  1126.     Y& = RGB(0, 0, 255)
  1127.     text16.BackColor = Y&
  1128.  
  1129. End Sub
  1130.  
  1131. Sub Text17_KeyDown (keycode As Integer, Shift As Integer)
  1132.    Select Case keycode
  1133.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1134.         Beep
  1135.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1136.        text17.Text = ""
  1137. Case 32
  1138.              text18.SetFocus
  1139.              End Select
  1140. If keycode = 13 Then
  1141.     keycode = 9
  1142. text18.SetFocus
  1143.   End If
  1144.  
  1145. End Sub
  1146.  
  1147. Sub Text17_KeyPress (keyascii As Integer)
  1148.   If keyascii = 13 Then
  1149.   keyascii = 0
  1150.   End If
  1151.  
  1152. End Sub
  1153.  
  1154. Sub Text18_GotFocus ()
  1155.     x& = RGB(255, 0, 0)
  1156.  text18.BackColor = x&
  1157.     Y& = RGB(0, 0, 255)
  1158.     text17.BackColor = Y&
  1159.  
  1160. End Sub
  1161.  
  1162. Sub Text18_KeyDown (keycode As Integer, Shift As Integer)
  1163.    Select Case keycode
  1164.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1165.         Beep
  1166.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1167. text18.Text = ""
  1168. Case 32
  1169. text19.SetFocus
  1170.              End Select
  1171. If keycode = 13 Then
  1172.     keycode = 9
  1173.     text19.SetFocus
  1174.   End If
  1175.  
  1176. End Sub
  1177.  
  1178. Sub Text18_KeyPress (keyascii As Integer)
  1179.   If keyascii = 13 Then
  1180.   keyascii = 0
  1181.   End If
  1182.  
  1183. End Sub
  1184.  
  1185. Sub Text19_GotFocus ()
  1186.     x& = RGB(255, 0, 0)
  1187.  text19.BackColor = x&
  1188.     Y& = RGB(0, 0, 255)
  1189.     text18.BackColor = Y&
  1190.  
  1191. End Sub
  1192.  
  1193. Sub Text19_KeyDown (keycode As Integer, Shift As Integer)
  1194.    Select Case keycode
  1195.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1196.         Beep
  1197.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1198. text19.Text = ""
  1199. Case 32
  1200.              text20.SetFocus
  1201.              End Select
  1202. If keycode = 13 Then
  1203.     keycode = 9
  1204. text20.SetFocus
  1205.   End If
  1206.  
  1207. End Sub
  1208.  
  1209. Sub Text19_KeyPress (keyascii As Integer)
  1210.   If keyascii = 13 Then
  1211.   keyascii = 0
  1212.   End If
  1213.  
  1214. End Sub
  1215.  
  1216. Sub Text2_GotFocus ()
  1217.     x& = RGB(255, 0, 0)
  1218.  text2.BackColor = x&
  1219.     Y& = RGB(0, 0, 255)
  1220.     text1.BackColor = Y&
  1221.  
  1222.  
  1223.  
  1224. End Sub
  1225.  
  1226. Sub Text2_KeyDown (keycode As Integer, Shift As Integer)
  1227. 'For keydown stuff to ensure no punctuation, but allow arrows
  1228.    Select Case keycode
  1229.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1230.         Beep
  1231.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1232.          
  1233.   text2.Text = ""
  1234.              End Select
  1235. If keycode = 13 Then
  1236.     keycode = 9
  1237.     label1.Caption = "Good!  Now enter City"
  1238.        text3.SetFocus
  1239.   End If
  1240. End Sub
  1241.  
  1242. Sub Text2_KeyPress (keyascii As Integer)
  1243.   If keyascii = 13 Then
  1244.   keyascii = 0
  1245.   End If
  1246.  
  1247. End Sub
  1248.  
  1249. Sub Text20_GotFocus ()
  1250.     x& = RGB(255, 0, 0)
  1251.  text20.BackColor = x&
  1252.     Y& = RGB(0, 0, 255)
  1253.     text19.BackColor = Y&
  1254.  
  1255. End Sub
  1256.  
  1257. Sub Text20_KeyDown (keycode As Integer, Shift As Integer)
  1258.    Select Case keycode
  1259.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1260.         Beep
  1261.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1262. text20.Text = ""
  1263. Case 32
  1264.              text21.SetFocus
  1265.              End Select
  1266. If keycode = 13 Then
  1267.     keycode = 9
  1268. text21.SetFocus
  1269.   End If
  1270.  
  1271. End Sub
  1272.  
  1273. Sub Text20_KeyPress (keyascii As Integer)
  1274.   If keyascii = 13 Then
  1275.   keyascii = 0
  1276.   End If
  1277.  
  1278. End Sub
  1279.  
  1280. Sub Text21_GotFocus ()
  1281.     x& = RGB(255, 0, 0)
  1282.  text21.BackColor = x&
  1283.     Y& = RGB(0, 0, 255)
  1284.     text20.BackColor = Y&
  1285.  
  1286. End Sub
  1287.  
  1288. Sub Text21_KeyDown (keycode As Integer, Shift As Integer)
  1289.    Select Case keycode
  1290.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1291.         Beep
  1292.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1293. text21.Text = ""
  1294. Case 32
  1295.              text22.SetFocus
  1296.              End Select
  1297. If keycode = 13 Then
  1298.     keycode = 9
  1299. text22.SetFocus
  1300.   End If
  1301.  
  1302. End Sub
  1303.  
  1304. Sub Text21_KeyPress (keyascii As Integer)
  1305.   If keyascii = 13 Then
  1306.   keyascii = 0
  1307.   End If
  1308.  
  1309. End Sub
  1310.  
  1311. Sub Text22_GotFocus ()
  1312.     x& = RGB(255, 0, 0)
  1313.  text22.BackColor = x&
  1314.     Y& = RGB(0, 0, 255)
  1315.     text21.BackColor = Y&
  1316.  
  1317. End Sub
  1318.  
  1319. Sub Text22_KeyDown (keycode As Integer, Shift As Integer)
  1320.    Select Case keycode
  1321.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1322.         Beep
  1323.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1324.          
  1325.   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1326.         Beep
  1327.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1328. text22.Text = ""
  1329. Case 32
  1330.  text23.SetFocus
  1331.  End Select
  1332. If keycode = 13 Then
  1333.     keycode = 9
  1334. text23.SetFocus
  1335.   End If
  1336.  
  1337. End Sub
  1338.  
  1339. Sub Text22_KeyPress (keyascii As Integer)
  1340.   If keyascii = 13 Then
  1341.   keyascii = 0
  1342.   End If
  1343.  
  1344. End Sub
  1345.  
  1346. Sub Text23_GotFocus ()
  1347.    x& = RGB(255, 0, 0)
  1348.  text23.BackColor = x&
  1349.     Y& = RGB(0, 0, 255)
  1350.     text22.BackColor = Y&
  1351.  
  1352.  
  1353. End Sub
  1354.  
  1355. Sub Text23_KeyDown (keycode As Integer, Shift As Integer)
  1356.    Select Case keycode
  1357.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1358.         Beep
  1359.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1360.            text23.Text = ""
  1361. Case 32
  1362.              text24.SetFocus
  1363.              End Select
  1364. If keycode = 13 Then
  1365.     keycode = 9
  1366. text24.SetFocus
  1367.   End If
  1368.  
  1369. End Sub
  1370.  
  1371. Sub Text23_KeyPress (keyascii As Integer)
  1372.   If keyascii = 13 Then
  1373.   keyascii = 0
  1374.   End If
  1375.  
  1376. End Sub
  1377.  
  1378. Sub Text24_GotFocus ()
  1379.     x& = RGB(255, 0, 0)
  1380.  text24.BackColor = x&
  1381.     Y& = RGB(0, 0, 255)
  1382.     text23.BackColor = Y&
  1383.  
  1384. End Sub
  1385.  
  1386. Sub Text24_KeyDown (keycode As Integer, Shift As Integer)
  1387.    Select Case keycode
  1388.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1389.         Beep
  1390.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1391.    text24.Text = ""
  1392. Case 32
  1393.              text25.SetFocus
  1394.              End Select
  1395. If keycode = 13 Then
  1396.     keycode = 9
  1397. text25.SetFocus
  1398.   End If
  1399.  
  1400.  
  1401. End Sub
  1402.  
  1403. Sub Text24_KeyPress (keyascii As Integer)
  1404.   If keyascii = 13 Then
  1405.   keyascii = 0
  1406.   End If
  1407.  
  1408. End Sub
  1409.  
  1410. Sub Text25_GotFocus ()
  1411.     x& = RGB(255, 0, 0)
  1412.  text25.BackColor = x&
  1413.     Y& = RGB(0, 0, 255)
  1414.     text24.BackColor = Y&
  1415.  
  1416. End Sub
  1417.  
  1418. Sub Text25_KeyDown (keycode As Integer, Shift As Integer)
  1419.    Select Case keycode
  1420.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1421.         Beep
  1422.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1423.     text25.Text = ""
  1424. Case 32
  1425.              text26.SetFocus
  1426.              End Select
  1427. If keycode = 13 Then
  1428.     keycode = 9
  1429. text26.SetFocus
  1430.   End If
  1431.  
  1432.  
  1433. End Sub
  1434.  
  1435. Sub Text25_KeyPress (keyascii As Integer)
  1436.   If keyascii = 13 Then
  1437.   keyascii = 0
  1438.   End If
  1439.  
  1440. End Sub
  1441.  
  1442. Sub Text26_GotFocus ()
  1443.     x& = RGB(255, 0, 0)
  1444.  text26.BackColor = x&
  1445.     Y& = RGB(0, 0, 255)
  1446.     text25.BackColor = Y&
  1447.  
  1448. End Sub
  1449.  
  1450. Sub Text26_KeyDown (keycode As Integer, Shift As Integer)
  1451.    Select Case keycode
  1452.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1453.         Beep
  1454.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1455.     text26.Text = ""
  1456. Case 32
  1457. text27.SetFocus
  1458. End Select
  1459. If keycode = 13 Then
  1460.     keycode = 9
  1461. text27.SetFocus
  1462.   End If
  1463.  
  1464.  
  1465. End Sub
  1466.  
  1467. Sub Text26_KeyPress (keyascii As Integer)
  1468.   If keyascii = 13 Then
  1469.   keyascii = 0
  1470.   End If
  1471.  
  1472. End Sub
  1473.  
  1474. Sub Text27_GotFocus ()
  1475.     x& = RGB(255, 0, 0)
  1476.  text27.BackColor = x&
  1477.     Y& = RGB(0, 0, 255)
  1478.     text26.BackColor = Y&
  1479.  
  1480. End Sub
  1481.  
  1482. Sub Text27_KeyDown (keycode As Integer, Shift As Integer)
  1483.    Select Case keycode
  1484.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1485.         Beep
  1486.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1487.    text27.Text = ""
  1488. Case 32
  1489.              text28.SetFocus
  1490.              End Select
  1491. If keycode = 13 Then
  1492.     keycode = 9
  1493. text28.SetFocus
  1494.   End If
  1495.  
  1496.  
  1497. End Sub
  1498.  
  1499. Sub Text27_KeyPress (keyascii As Integer)
  1500.   If keyascii = 13 Then
  1501.   keyascii = 0
  1502.   End If
  1503.  
  1504. End Sub
  1505.  
  1506. Sub Text28_GotFocus ()
  1507.     x& = RGB(255, 0, 0)
  1508.  text28.BackColor = x&
  1509.     Y& = RGB(0, 0, 255)
  1510.     text27.BackColor = Y&
  1511.  
  1512. End Sub
  1513.  
  1514. Sub Text28_KeyDown (keycode As Integer, Shift As Integer)
  1515.    Select Case keycode
  1516.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1517.         Beep
  1518.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1519.   text28.Text = ""
  1520. Case 32
  1521.              text29.SetFocus
  1522.              End Select
  1523. If keycode = 13 Then
  1524.     keycode = 9
  1525. text29.SetFocus
  1526.   End If
  1527.  
  1528.  
  1529. End Sub
  1530.  
  1531. Sub Text28_KeyPress (keyascii As Integer)
  1532.   If keyascii = 13 Then
  1533.   keyascii = 0
  1534.   End If
  1535.  
  1536. End Sub
  1537.  
  1538. Sub Text29_GotFocus ()
  1539.     x& = RGB(255, 0, 0)
  1540.  text29.BackColor = x&
  1541.     Y& = RGB(0, 0, 255)
  1542.     text28.BackColor = Y&
  1543.  
  1544. End Sub
  1545.  
  1546. Sub Text29_KeyDown (keycode As Integer, Shift As Integer)
  1547.    Select Case keycode
  1548.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1549.         Beep
  1550.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1551.     text29.Text = ""
  1552. Case 32
  1553.              text30.SetFocus
  1554.              End Select
  1555. If keycode = 13 Then
  1556.     keycode = 9
  1557. text30.SetFocus
  1558.   End If
  1559.  
  1560.  
  1561. End Sub
  1562.  
  1563. Sub Text29_KeyPress (keyascii As Integer)
  1564.   If keyascii = 13 Then
  1565.   keyascii = 0
  1566.   End If
  1567.  
  1568. End Sub
  1569.  
  1570. Sub Text3_GotFocus ()
  1571.     x& = RGB(255, 0, 0)
  1572.  text3.BackColor = x&
  1573.     Y& = RGB(0, 0, 255)
  1574.     text2.BackColor = Y&
  1575.  
  1576. End Sub
  1577.  
  1578. Sub Text3_KeyDown (keycode As Integer, Shift As Integer)
  1579.     Select Case keycode
  1580.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1581.         Beep
  1582.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1583.  text3.Text = ""
  1584.  
  1585.              End Select
  1586. If keycode = 13 Then
  1587.     keycode = 9
  1588.     label1.Caption = "Now enter 2-letter State. (If non-USA/Canada, leave blank)."
  1589.        text4.SetFocus
  1590.          End If
  1591. End Sub
  1592.  
  1593. Sub Text3_KeyPress (keyascii As Integer)
  1594.   If keyascii = 13 Then
  1595.   keyascii = 0
  1596.   End If
  1597.  
  1598. End Sub
  1599.  
  1600. Sub Text30_GotFocus ()
  1601. x& = RGB(255, 0, 0)
  1602.  text30.BackColor = x&
  1603.     Y& = RGB(0, 0, 255)
  1604.     text29.BackColor = Y&
  1605.  
  1606. End Sub
  1607.  
  1608. Sub Text30_KeyDown (keycode As Integer, Shift As Integer)
  1609.    Select Case keycode
  1610.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1611.         Beep
  1612.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1613. text30.Text = ""
  1614. Case 32
  1615.              text31.SetFocus
  1616.              End Select
  1617. If keycode = 13 Then
  1618.     keycode = 9
  1619. text31.SetFocus
  1620.   End If
  1621.  
  1622.  
  1623. End Sub
  1624.  
  1625. Sub Text30_KeyPress (keyascii As Integer)
  1626.   If keyascii = 13 Then
  1627.   keyascii = 0
  1628.   End If
  1629.  
  1630. End Sub
  1631.  
  1632. Sub Text31_GotFocus ()
  1633.     x& = RGB(255, 0, 0)
  1634.  text31.BackColor = x&
  1635.     Y& = RGB(0, 0, 255)
  1636.     text30.BackColor = Y&
  1637.  
  1638. End Sub
  1639.  
  1640. Sub Text31_KeyDown (keycode As Integer, Shift As Integer)
  1641.    Select Case keycode
  1642.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1643.         Beep
  1644.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1645.      text31.Text = ""
  1646. Case 32
  1647.              text32.SetFocus
  1648.              End Select
  1649. If keycode = 13 Then
  1650.     keycode = 9
  1651. text32.SetFocus
  1652.   End If
  1653.  
  1654.  
  1655. End Sub
  1656.  
  1657. Sub Text31_KeyPress (keyascii As Integer)
  1658.   If keyascii = 13 Then
  1659.   keyascii = 0
  1660.   End If
  1661.  
  1662. End Sub
  1663.  
  1664. Sub Text32_GotFocus ()
  1665.     x& = RGB(255, 0, 0)
  1666.  text32.BackColor = x&
  1667.     Y& = RGB(0, 0, 255)
  1668.     text31.BackColor = Y&
  1669.  
  1670. End Sub
  1671.  
  1672. Sub Text32_KeyDown (keycode As Integer, Shift As Integer)
  1673.    Select Case keycode
  1674.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1675.         Beep
  1676.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1677.       text32.Text = ""
  1678. Case 32
  1679.              text33.SetFocus
  1680.              End Select
  1681. If keycode = 13 Then
  1682.     keycode = 9
  1683. text33.SetFocus
  1684.   End If
  1685.  
  1686.  
  1687. End Sub
  1688.  
  1689. Sub Text32_KeyPress (keyascii As Integer)
  1690.   If keyascii = 13 Then
  1691.   keyascii = 0
  1692.   End If
  1693.  
  1694. End Sub
  1695.  
  1696. Sub Text33_GotFocus ()
  1697.     x& = RGB(255, 0, 0)
  1698.  text33.BackColor = x&
  1699.     Y& = RGB(0, 0, 255)
  1700.     text32.BackColor = Y&
  1701.  
  1702. End Sub
  1703.  
  1704. Sub Text33_KeyDown (keycode As Integer, Shift As Integer)
  1705.    Select Case keycode
  1706.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1707.         Beep
  1708.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1709. text33.Text = ""
  1710. Case 32
  1711.              text34.SetFocus
  1712.              End Select
  1713. If keycode = 13 Then
  1714.     keycode = 9
  1715. text34.SetFocus
  1716.   End If
  1717.  
  1718.  
  1719. End Sub
  1720.  
  1721. Sub Text33_KeyPress (keyascii As Integer)
  1722.   If keyascii = 13 Then
  1723.   keyascii = 0
  1724.   End If
  1725.  
  1726. End Sub
  1727.  
  1728. Sub Text34_GotFocus ()
  1729.     x& = RGB(255, 0, 0)
  1730.  text34.BackColor = x&
  1731.     Y& = RGB(0, 0, 255)
  1732.     text33.BackColor = Y&
  1733.  
  1734.  
  1735. End Sub
  1736.  
  1737. Sub Text34_KeyDown (keycode As Integer, Shift As Integer)
  1738.    Select Case keycode
  1739.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1740.         Beep
  1741.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1742.      text34.Text = ""
  1743. Case 32
  1744.              text35.SetFocus
  1745.              End Select
  1746. If keycode = 13 Then
  1747.     keycode = 9
  1748. text35.SetFocus
  1749.   End If
  1750.  
  1751.  
  1752. End Sub
  1753.  
  1754. Sub Text34_KeyPress (keyascii As Integer)
  1755.   If keyascii = 13 Then
  1756.   keyascii = 0
  1757.   End If
  1758.  
  1759. End Sub
  1760.  
  1761. Sub Text35_GotFocus ()
  1762.     x& = RGB(255, 0, 0)
  1763.  text35.BackColor = x&
  1764.     Y& = RGB(0, 0, 255)
  1765.     text34.BackColor = Y&
  1766.  
  1767. End Sub
  1768.  
  1769. Sub Text35_KeyDown (keycode As Integer, Shift As Integer)
  1770.    Select Case keycode
  1771.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1772.         Beep
  1773.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1774.   text35.Text = ""
  1775. Case 32
  1776.              text36.SetFocus
  1777.              End Select
  1778. If keycode = 13 Then
  1779.     keycode = 9
  1780. text36.SetFocus
  1781.   End If
  1782.  
  1783.  
  1784. End Sub
  1785.  
  1786. Sub Text35_KeyPress (keyascii As Integer)
  1787.   If keyascii = 13 Then
  1788.   keyascii = 0
  1789.   End If
  1790.  
  1791. End Sub
  1792.  
  1793. Sub Text36_GotFocus ()
  1794.     x& = RGB(255, 0, 0)
  1795.  text36.BackColor = x&
  1796.     Y& = RGB(0, 0, 255)
  1797.     text35.BackColor = Y&
  1798.  
  1799. End Sub
  1800.  
  1801. Sub Text36_KeyDown (keycode As Integer, Shift As Integer)
  1802.    Select Case keycode
  1803.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1804.         Beep
  1805.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1806.    text36.Text = ""
  1807. Case 32
  1808.              text37.SetFocus
  1809.              End Select
  1810. If keycode = 13 Then
  1811.     keycode = 9
  1812. text37.SetFocus
  1813.   End If
  1814.  
  1815.  
  1816. End Sub
  1817.  
  1818. Sub Text36_KeyPress (keyascii As Integer)
  1819.   If keyascii = 13 Then
  1820.   keyascii = 0
  1821.   End If
  1822.  
  1823. End Sub
  1824.  
  1825. Sub Text37_Change ()
  1826. love$ = text37.Text
  1827. Select Case LCase$(love$)
  1828.     Case "love"
  1829.         Beep
  1830.         MsgBox ("We're sorry, but the word 'Love' needs to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
  1831.         text37.Text = ""
  1832.  
  1833.     Case "regards"
  1834.         Beep
  1835.         MsgBox ("We're sorry, but the word 'Regards' needs to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
  1836.     text37.Text = ""
  1837.     
  1838.     Case "with love"
  1839.     Beep
  1840.         Beep
  1841.         MsgBox ("We're sorry, but the words 'With Love' need to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
  1842.     text37.Text = ""
  1843.     Case "much love"
  1844.         Beep
  1845.         MsgBox ("We're sorry, but the words 'Much Love' need to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
  1846.         text37.Text = ""
  1847.  
  1848.  
  1849.  End Select
  1850.  
  1851.  
  1852.  
  1853. End Sub
  1854.  
  1855. Sub Text37_GotFocus ()
  1856.     x& = RGB(255, 0, 0)
  1857.  text37.BackColor = x&
  1858.     Y& = RGB(0, 0, 255)
  1859.     text7.BackColor = Y&
  1860.      label1.Caption = "Now enter the signature, names only."
  1861.  Select Case voice
  1862.  Case 2 'This is a radiogram, not a voicegram
  1863.  If text8.Text = "" Then
  1864.      MsgBox ("Warning!  It appears that there is either no text to this message, or one of the text boxes is improperly empty.  Please correct before continuing...")
  1865.      text8.SetFocus
  1866.      End If
  1867.  
  1868. End Select
  1869.  
  1870. End Sub
  1871.  
  1872. Sub Text37_KeyDown (keycode As Integer, Shift As Integer)
  1873.    'Now check for punctuation...
  1874.    Select Case keycode
  1875.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1876.         Beep
  1877.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1878.          
  1879. End Select
  1880.  
  1881. Select Case voice
  1882.  Case 1 'This is a Voicegram, not a radiogram
  1883.     If text1.Text = "" Then
  1884.     Beep: MsgBox ("You need to fill in the name and address information before we can transmit your voicegram..."): text38.Visible = False: text1.SetFocus : text37.Text = ""
  1885.     
  1886.        End If
  1887.        
  1888.              If keycode = 13 And text37.Text = "" Then
  1889.      MsgBox ("We can't send your voicegram without a signature..."): text38.Visible = False: label1.Visible = True: label2.Visible = True: label10.Visible = True: text37.Visible = True: text37.SetFocus
  1890.               End If
  1891.        If keycode = 13 And text37.Text <> "" Then
  1892.           text38.Visible = True: text38.Text = "Now you can begin to record your voice message.  When you have the microphone ready, press the ENTER key to start recording.": label1.Visible = False: label2.Visible = False: label10.Visible = False: text37.Visible = False: text38.SetFocus
  1893.              End If
  1894.  
  1895.     Case 2 ' This is a radiogram, not a voicegram
  1896.     
  1897.     If keycode = 13 Then
  1898.     keycode = 9
  1899.     label1.Caption = "Inspect for errors, then click on 'transmit' or 'abort' button."
  1900.   
  1901.   End If
  1902.  
  1903.     End Select
  1904.  
  1905. End Sub
  1906.  
  1907. Sub Text37_KeyPress (keyascii As Integer)
  1908.   If keyascii = 13 Then
  1909.   keyascii = 0
  1910.   End If
  1911.  
  1912. End Sub
  1913.  
  1914. Sub Text38_KeyDown (keycode As Integer, Shift As Integer)
  1915. On Error Resume Next
  1916.  
  1917. If keycode = 13 Then 'Record the voicegram
  1918.      'command3d1.Enabled = False
  1919.  
  1920.     messagenumber = initialmessagenumber + 1' Increment the message number
  1921.     initialmessagenumber = messagenumber
  1922.  
  1923.     test$ = (directory$ & "\vrec.exe " & directory$ & "\" & "voc" & messagenumber & " /T:15")
  1924.     x = Shell(test$)
  1925.     'text38.Text = test$
  1926.     cleartext
  1927.     text38.Text = "When the recording of your voicegram is complete, choose 'Listen To Voicegram' button or 'Main Menu' button": command3d3.Visible = True
  1928.  
  1929. number$ = Str$(messagenumber)'Make a text representation of the longinteger "messagenumber"
  1930.  
  1931. Open directory$ & "\" & messagenumber For Output As #1
  1932.  
  1933. cr$ = Chr$(10) & Chr$(13)
  1934.  
  1935. sig$ = cr$ & "BT" & cr$ & UCase$(text37.Text) & cr$
  1936.  
  1937. 'Now put the text portion (preamble, etc) together as an ASCII file and write to disk
  1938.  
  1939.     preamble$ = "NR" & " " & number$ & " " & precedence$ & " " & UCase$(callsign$) & " " & UCase$(cityoforigination$) & " " & UCase$(todaysdate$) & cr$
  1940.  
  1941.     voicegram$ = preamble$ & UCase$(text1.Text) & cr$ & UCase$(text2.Text) & cr$ & UCase$(text3.Text) & "  " & UCase$(text4.Text) & " " & UCase$(text5.Text) & " " & UCase$(text6.Text) & " " & cr$ & UCase$(text7.Text) & cr$ & "BT" & cr$ & "See 'VOCxxxx' file with same number" & cr$ & "BT" & cr$ & sig$ & cr$
  1942.  
  1943.  
  1944.     Print #1, voicegram$
  1945.     Close 1
  1946.  
  1947.     End If
  1948.     
  1949.  
  1950.  
  1951. If Err Then
  1952.    MsgBox (Error$(Err))
  1953. End If
  1954.  
  1955. End Sub
  1956.  
  1957. Sub Text4_GotFocus ()
  1958.     x& = RGB(255, 0, 0)
  1959.  text4.BackColor = x&
  1960.     Y& = RGB(0, 0, 255)
  1961.     text3.BackColor = Y&
  1962.  
  1963. End Sub
  1964.  
  1965. Sub Text4_KeyDown (keycode As Integer, Shift As Integer)
  1966.     Select Case keycode
  1967.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 47 To 57, 96 To 99, 101, 103 To 109, Is > 110
  1968.         Beep
  1969.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  1970.    text4.Text = ""
  1971.  
  1972.              End Select
  1973. If keycode = 13 Then
  1974.     keycode = 9
  1975.     label1.Caption = "Good!  Now enter Zip or Postal Code."
  1976.        text5.SetFocus
  1977.              End If
  1978. End Sub
  1979.  
  1980. Sub Text4_KeyPress (keyascii As Integer)
  1981.   If keyascii = 13 Then
  1982.   keyascii = 0
  1983.   End If
  1984.  
  1985. End Sub
  1986.  
  1987. Sub Text5_GotFocus ()
  1988.     x& = RGB(255, 0, 0)
  1989.  text5.BackColor = x&
  1990.     Y& = RGB(0, 0, 255)
  1991.     text4.BackColor = Y&
  1992.  
  1993.  
  1994. End Sub
  1995.  
  1996. Sub Text5_KeyDown (keycode As Integer, Shift As Integer)
  1997.     Select Case keycode
  1998.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  1999.         Beep
  2000.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  2001.          
  2002.  
  2003.              End Select
  2004. If keycode = 13 Then
  2005.     keycode = 9
  2006.     label1.Caption = "Good!  Now enter Country.  (Leave blank if USA) "
  2007.        text6.SetFocus
  2008.          End If
  2009.  
  2010. End Sub
  2011.  
  2012. Sub Text5_KeyPress (keyascii As Integer)
  2013.   If keyascii = 13 Then
  2014.   keyascii = 0
  2015.   End If
  2016.  
  2017. End Sub
  2018.  
  2019. Sub Text6_GotFocus ()
  2020.     x& = RGB(255, 0, 0)
  2021.  text6.BackColor = x&
  2022.     Y& = RGB(0, 0, 255)
  2023.     text5.BackColor = Y&
  2024.  
  2025.  
  2026. End Sub
  2027.  
  2028. Sub Text6_KeyDown (keycode As Integer, Shift As Integer)
  2029.    Select Case keycode
  2030.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 57, 96 To 99, 101, 103 To 109, Is > 110
  2031.         Beep
  2032.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  2033.          
  2034.  
  2035.              End Select
  2036. If keycode = 13 Then
  2037.     keycode = 9
  2038.     label1.Caption = "Good!  Now enter telephone number."
  2039.        text7.SetFocus
  2040.          End If
  2041.  
  2042. End Sub
  2043.  
  2044. Sub Text6_KeyPress (keyascii As Integer)
  2045.   If keyascii = 13 Then
  2046.   keyascii = 0
  2047.   End If
  2048.  
  2049. End Sub
  2050.  
  2051. Sub Text7_GotFocus ()
  2052.     x& = RGB(255, 0, 0)
  2053.  text7.BackColor = x&
  2054.     Y& = RGB(0, 0, 255)
  2055.     text6.BackColor = Y&
  2056.  
  2057.  
  2058. End Sub
  2059.  
  2060. Sub Text7_KeyDown (keycode As Integer, Shift As Integer)
  2061.  
  2062.     Select Case keycode
  2063.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  2064.         Beep
  2065.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  ")
  2066.         text7.Text = ""
  2067.  
  2068.  
  2069.              End Select
  2070. Select Case voice
  2071.     Case 1 'Voicegram, rather than radiogram
  2072.         label1.Caption = "Now type your signature."
  2073.           If keycode = 13 Then keycode = 9: text37.SetFocus
  2074.  
  2075.         Case 2 'Radiogram rather than voicegram
  2076.         
  2077. If keycode = 13 Then
  2078.     keycode = 9
  2079.     label1.Caption = "Begin text.  One word per box, no punctuation."
  2080.     text8.SetFocus
  2081.   End If
  2082.  
  2083.  
  2084. End Select
  2085.  
  2086. End Sub
  2087.  
  2088. Sub Text7_KeyPress (keyascii As Integer)
  2089.   If keyascii = 13 Then
  2090.   keyascii = 0
  2091.   End If
  2092.  
  2093. End Sub
  2094.  
  2095. Sub Text8_GotFocus ()
  2096.     x& = RGB(255, 0, 0)
  2097.  text8.BackColor = x&
  2098.     Y& = RGB(0, 0, 255)
  2099.     text7.BackColor = Y&
  2100.  
  2101. End Sub
  2102.  
  2103. Sub Text8_KeyDown (keycode As Integer, Shift As Integer)
  2104.     Select Case keycode
  2105.     Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  2106.         Beep
  2107.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  2108.         text8.Text = ""
  2109. Case 32
  2110.     text9.SetFocus
  2111.     End Select
  2112. If keycode = 13 Then
  2113.     keycode = 9
  2114.     text9.SetFocus
  2115.          End If
  2116.  
  2117. End Sub
  2118.  
  2119. Sub Text8_KeyPress (keyascii As Integer)
  2120.   If keyascii = 13 Then
  2121.   keyascii = 0
  2122.   End If
  2123.  
  2124. End Sub
  2125.  
  2126. Sub Text9_GotFocus ()
  2127.     x& = RGB(255, 0, 0)
  2128.  text9.BackColor = x&
  2129.     Y& = RGB(0, 0, 255)
  2130.     text8.BackColor = Y&
  2131.  
  2132. End Sub
  2133.  
  2134. Sub Text9_KeyDown (keycode As Integer, Shift As Integer)
  2135.    Select Case keycode
  2136.    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
  2137.         Beep
  2138.         MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  2139.         text9.Text = ""
  2140.              Case 32
  2141.              text10.SetFocus
  2142.              End Select
  2143. If keycode = 13 Then
  2144.     keycode = 9
  2145.     text10.SetFocus
  2146.   End If
  2147.  
  2148. End Sub
  2149.  
  2150. Sub Text9_KeyPress (keyascii As Integer)
  2151.   If keyascii = 13 Then
  2152.   keyascii = 0
  2153.   End If
  2154.  
  2155. End Sub
  2156.  
  2157. Sub Timer1_Timer ()
  2158. 'when things are done, automatically move back to main form
  2159. radiogrm.Hide
  2160. ky1tnts.Show
  2161. 'timer1.Enabled = True
  2162.  
  2163.  
  2164. End Sub
  2165.  
  2166. Sub Timer2_Timer ()
  2167. picture1.Visible = False
  2168. picture1.Visible = False
  2169.  
  2170. End Sub
  2171.  
  2172.